home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / unity331.zip / REALCOB.AWK < prev    next >
Text File  |  1991-09-19  |  422b  |  16 lines
  1. # Parses the output of Realia Cobol and returns records containing the
  2. # following:
  3. #     Filename, Line, 0, ErrorMessage
  4. # Since Column can not be assertained it is set to 0.
  5.  
  6. / W | E | C / \
  7.     {
  8.     a = sprintf("%1s, %1s, 0,",ARGV[2],$1)
  9.     b = ""
  10.     for (i=2; i <= NF; i++) b = sprintf("%1s %1s",b,$i)
  11.     if (b !~ /has/ && b !~ /Level/ && b !~ /messages/) \
  12.        {
  13.        print a b
  14.        }
  15.     }
  16.